home *** CD-ROM | disk | FTP | other *** search
/ KeyGen Studio 2002 / KeyGen_Studio_2002.iso / Tutorials / Dos CrackMes / com / TEST2.ZIP / Test2Tut / TEST2KM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-27  |  427 b   |  22 lines
  1. program Test2KeyMaker;
  2.  
  3. var
  4.   S : string;
  5.   n : Byte;
  6.   a, k : Byte;
  7.   i : Byte;
  8.  
  9. begin
  10.   Writeln('Simple keymaker for TEST2 by LordByte');
  11.   Writeln('Written 27.1.1998 by Crook');
  12.   repeat
  13.     Write('Enter 9 char string: ');
  14.     Readln(S);
  15.   until Length(S) = 9;
  16.   n := 0;
  17.   for i := 1 to 9 do
  18.     n := n xor Ord(S[I]);
  19.   k := $1e xor n;
  20.   a := $6d;
  21.   Writeln('The password is: ', Chr(a), S, Chr(k));
  22. end.